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A collection of programs tries to recognize 7 each one L>ore 
sure n s u fvl ly tha n its p eadece^o sr a 3 ~d imena ions 1 parallelepipeds 
(solids limited by 6 planes 9 parallel two-by-t^a) 9 using as data 

2^dimensional idealised projections* 

Special attention is given to the last of those programs]: the 
^nuthoil used is discussed in some detail and ? in the light of its 
StttceM and failures, a more general one is proposed, 




2 - 


Introductioflr W* like the coaputftr tb &blv£ the following problem2 

Her& Is a figure -a picture-* 

Whet do you see? I am in particular InLorosted In 
tables, bonks and boxes which Jiave in one side 
urittrjn the sign '"DAGGER 11 ■ 

Tell me “where they are- 

The programs described here solve the following problem] 

A picture has been taken In a factory of parallelepipeds 
thereaf ter called sloppily "cubes 11 ) - AIL of them are 
black, and the only w^y to d£fferefltchapi is* 
because their edges are ^hlte nd bright. They ^re. 
also smalls so they do not sho^r perspective The 
picture looks like fig- I. 

boise Is not present --all the edges are aharp-- s 
but an extraneous object h which human beings recognize 
as a 1 pyramid p * Is present^ and makes the problee. 
harder for more interestingj■ 

Problem: tell me hov many cubes vc have 

htre and which thfty ar& (fig- 1}+ 


A good answer would be something like: 
CUBE 1 IS G B 
CUBE 2 1$ U V T S K. 

CUBE 3 IS KHD 


CUBE 4 IS (MAYBE) X ¥ W 
CUBE 5 IS H W fj P fc 


A wrong answer would he 
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An answer is con&idtrtd bad It Sttme cuha ? or if it 


Confuses th*m- Ctt -ha pthar hand, ambiguous cubes or paxtially-identifled 
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OtL&S should be reported as such, The program should also give the 
position of such cubes h to the extent such information is avaliable r 

Input t o^ t he_ •proq raTTi 

Eventually the program will read its data directly from the screen. 
Right now p the picture is traneformed (by ttand) to a list of Corners and 
paints of intersection (real Or virtual), and their Coord iflates in the 
picture*,together with its nearest adjacent points. WLlltam H. Henneman 
and Fill Mann are working on a program which will produce this list a 
tiding the figure from the FDP-& scope or vidisector p so as to eliminate 
tLL* manual (and tedious) step. 

For example, the input associated with figr 2 f,s 
(A (ft f) .h (A G C) C (B D) D {G E C) E (F D) F (AEG) G (G D B) ) 

2] M2, 13 1] Mi* 21 V[3 P 3} Cfl s 3] M2 S 2] 


F E 



A cube showing ice vertices, 

GORDO- (nar:e given to fig, 3) is described by th^ following list“ 

^■ - u .1 — 4 . i un is 

* that is, tvo-dimenstonal 
** anc Elaine Gord 
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(A 1*0 4.0 (E P) G 1.0 6.0 (A Q C) C 5.4444444 7.7777777E 

(B D S) 

D 5,0 8,0 (£ C) & 6.0 ID.0 (D X F) F 8.0 II.0 <E G) 

G 14.0 6,0 (X E3 F) H 13.0 6-0 Cl G) I 11.0 5,0 (X K J) 

J 9.0 6.0 (I It W K) K 9.0 4.0 (J L) L 7.0 1.0 (K ¥ K) 

M 5.0 1.0 (S L) N 5.0 3.0 (O K H) 0 5,7272727 4,0909091 {V fl P) 

P 3.0 3.0 (A 0 0) Q 3.0 5.0 £E PR} 1 8.0 7.0 {Q S T> 

£ 6.0 8.0 <C R) T 6.0 6.5 (H U J) 0 &.0 6.0 (T V J) V 7,0 6,0 {0 0) 

07,0 3.D (N J L) X 12,0 7,0 (I G E> 

■phe nviiihers are s£flre6 under the property list of each vertex.. 



GORDO 



A 1 4 E F 

E 1 6 A Q C 

C 5 4 /9 7 7 /9 EDS 

D 5 B EC 

E 6 10 D X F 

F S 11 EC 

G 14 & X H F 

H 13 6 I C 

I 11 5 H J 

J 9 6 1 TtlWI! 

K 9 4 J L 

L 7 1 K W W 

M 5 1 N L 

N 5 1 0 W L-{ 

0 5,7213 4.G909N F V 


P 3 3 A q 0 

Q 3 5 E F R 

S g 7 Q S T 

$ 6 g C R 

T S 0.5 R U J 

II g b TV J 

V 7 & U II 

W 7 3 KJL 


X 12 7 1 0 E 


Fig. 3. GORDO 

To its right Is its description list p the input to the pro-grFiTTu 
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Format of the answer. We use the CONVERT processor and apply tho 
function cuhs (iu the file 'CL'BE Ll$P f ) to ttie picture GORDO (in file 
'gordo'). Here is the operation in CT$$. 

Load C(a cuh e &o rdo)) 

(C ERO D r-TUEC LAKEL'J 
{CERO UNDECLARED) 

NIL 

e (aib» gonlo) 

tTHERE ARE AT LEAST 3 OS 1 CORES) 

(CDBE 1 IS (N (W 0 M) W CN J L) L CM it W)> ) 

(CDBE 2 15 (1 (J H X) G <F X (0 X (EG I) £ (X F D)) ) 

(CDBE 3 15 (P (A 0 Q) R ($ Q T) CJ (» R P) B (Q C A)) ) 


THE FRQGRAX5- 

They era writ Lon in CONVERT, a pattetn-driven symbolic transformation 
Language [1]* and wo will discuss her*. 1 the following; 


CUBES2 

LISP 

000 

Original, 

continuit jr- 

CUES 

LISP 

000 

Partitions the 

set into disjoint Oldses. 

CCEA 

LISP 

000 

Final v* f Sion; 

uses the unit distance notion 

CUBE 

LISP 

000 

Breaks —into —^ (not cOnft£d E£d ) r 


The last cne is the one currently in use, but it is intOrOstinp to talk 
shout all of them. 


CUBES? LISP. Us* of neighborhood- 

' —m law— ■ 1 

Th£ Idea |js to find a corner; if found p to find a n Square" 
(parallelogram ); if found .j to find tht cube. 







The prog ran: is best explained in the charE of Fig r 4, if a 
comer ( ^ ) is found, we look for a pa r^s lie Log ram ( ) which has 

that corner (we use here the information about which points ore joined to 
which) } as usual y solid arrows in the flow chart indicate the direction 
of success i broken ones p the direction of failure - 

3 nm using the following (opposite to the normal) contention in 
the- tree structure- if I fail completely in b , E go down one branch 

L B 1 ^ L 

and try to match b z . For example! 

j 

if I fall to teoogofie a , 

1 go down and try to find a b J+i 



fhen * cube £s found, it is 
completed i that is, the progmm nou 1 
tries to "fill it 11 and to recognize all the 

vertices (points) belonging co it. Then, it reports this cube* and erases 
it from the picture (it deletes all its lines, but only vertices that it 
is Sure ate not shared by other cubes) and tries again with the remaining part 
Of the picture. 


For example, in GORDO (fig- 3), CXTBES2 proceeds in this way: 


/ 

\ 




/ 



\ 


" 


V" 


• a 
/ 


CUBEFOUND 


FILL CUBE 



NOw it teles again; ic fiilJrt all tilt 3 cubes. 
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What co erase and what to leave 

Once all the points of a cube are found* we have to delete it 
from the picture, in order to process the remainder* 0r ? if you do not 

want to delete points, you still have to mark them as "already processed' 1 . 
This process is explained wich COMMON* the eK&mpJe In fig. 5, 

Once the cube KJltfDVPGB is found* we delete these points 
from the graph- The point G, for example* is safely deleted* since its 
neighbors, F, H and W also belong to the encountered cube, But F, for 
example* is still not deleted, since it has as neighbors points Outside 
{not belonging to) the actual cube. Therefore, one pass through the 
graph eliminates all the lines arriving at points in the cube; for example 3 
F* {E* C* K) is transformed to F* (E* C*) t since ¥. was in the cube- In 
thfs way we delete the line F* - if wo also make the transformation 
from MU J F*J to K (1J J) - 

Another page looks for points of the form \1 { ), that is* points 

"isolated 11 {not Connected to anything else)* and deletes them. 

The fitJC pass is done with the CONVERT rule 
{ {XXX (YYY U 222) WW) (XXX (*REPT* ((YYY ZZZ} WW))) ] 
whore we define t) as "member of CCTB-EJUSTFOUND" P 

The second pass —deletion of isolated points--’ is done with 

l {m x ( j m) <xxx (*rkp^ (yyy))) ], 

In this way points shared by several cubes (like 11) are preserved - 
But not the lines; for example* the line E - U is erased (fig. G) a because 
it belonged to the cube KJIWUVFG* even if it also belongs to the 
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r.ube PPDEFVt. 

In general * there is no way to predict such an event t since 
the second cube bee not yet been, found* and therefore there Is flO to 
tell what its parts are^ Me will discuss this point laier. 

In general, this is not a serious defect, but see ehe example 

TRICKY* £ig, 9, 



Fig. 6. CQMMIQM after erasing cube K J I W U V p G + 


Shortcomings of CUBES 2, 

The scheme just presented gives an idea cf the power or weakness of CUUEg2 H 
It i@ able to find connected cubes ; for eocaaple, it solves QORDQ {tig- 3) 
and {Fig. 6 ) „ but it fails to 

find A BCD in the figure at the right 
because it is formed of two disconnected 
parts (disconnected in the sense that* in 
order to go from one part A P to the other 
B C a we have to cross other cubes), 
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CUflB LISP, Classification of the corners- 


We want to be able to recognise ^'disconnected' 1 cubes, and the 
way CUSBS2 (fig* 4] works does not allow us to do thfl.it, SougMy speaking K 


the prohlen; is this: in somO way I manage to know that A Q C 
Looks Iike it is going to be a cube (see also fig- O: SO I 


would like: to look for a corner of the form 


in the dir fiction {J C, That corner happens to be U V T V 





uC the bottoca! but In order to find ft I have to continue the line q C 


for a whilep and stop after finding W T* which Is the continent J^n T 


12 > 


y* X* 


101 


8 . 1 



c* 



K* 

L* 


n* 


HIDDEN 


Fig. 7. The cubes A Q V If T and A* H ar& disconnectedr 


We could use the scheme of crying to n^tc-n-d all lines that seem to be 
stopped —like QC* TU—, making the picture scvm&wtt&t transparent Also* 
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wben Loot-ihg for Mrtl*X 7\ Wt Could extend slowly the line Q C* and 
every 2 millimeters or SO ^sk: E5av£ I hit a point yet? 

Instead of Shot a we. u$e the opposite approach: look for the 
points (corners) which exist, ^rtd Ste which of them may be continuations 
of Q Ct but it r Jouid be better not to look at all of them* but Just to 

the mOSE promising ones. That Is what CU3S does- 

The vertices m&y be CORNERS, Y's* T's or ANY 1 s. 

The program classifies the vertices of the picture Into 
several categories: 

CORNERS: With this name we demote vertices at which two lines arrive* 
for example U ? A, I, R* a etc. in HIDDEN (fig, 7), 

Y's: Three lines meeting in a point, no two of which are parallel 

(collnear). Z , T, N s , Q. 

T's: Three lines meeting £t £ point, two of them eollinearj b* K W* 

L* * M*. 

ANY^t Vertices having more then 3 Lines* 

What the program CUES does is divides the vertices Into CORNERS* 
Y’sj T's and ANY r s. The Y's ere also classified into cla 35 .es, according 
to the slope of Ita sides. 

After this* all tbft fs of a particular cube can be found In a 
given elats; If tt htppens that there are no parallel tubes h like in 
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STICKS (fife. S), then you .limply print C>i* cldjfi4B p b-Mauae each c 1 aag 
contain?) a^actly c-ne cube* 

That is- tiQt tha t&mpletse Solution. There ia more to he said, 
of course» Llien a single class contains just Ot\<". vecto, auch aa G or M* 
(STICKS 5 fifi a S) ± it may or m£iy wot b& part of a tub£ r CUES cakes further 
analysis and depending upon the Licid of vertices ettach-edi to the lines 
form inn; that Y, an acceptance or rejection i£ mad*:. For information 
pu rpo a e a s a message " FALSE CUBE FOUND 11 is issued , 

For cxampiLej. analysing, the points attached to XM apd F a th& 

"Y" G ia acniptsd aa a cube± analysing the points N* p T* and 7* 1 tho 
point M 1 is rejected, that ia to say r 

N* 

POC pert of a cube.™ 

L* 














This is the solution for STICKS, as the program CUBS does it: 


(COSHERS “ ZJM (QM Q) KM (M N) LM (KM MM) IM (W JM) I* (H* 
js) F* (£ fi G*) D* (C* E*> B* (C* A*) V (X YM) U (I V) K (J 
L) H (G I) F (G E) D <C E) A (B J*)) 

(TES = A/ (H+ DM G*) YM (GM Z Y) KM (F R* C) WM (C B VM) EM 
(Q* E VH) TH (SM I 0} MM (LM GM V*) JM (KM IM HM) FM (Z EX 
Y*) EM (V 1 * FM X*) BM (AM CM DM) AM (Z* BM E*) Z* (K* AM H a ) 

Y* (PM X* A*) X* (EH W* Y*i tf+ (EM X* V*) V* (5* MM «*) S* 

(R* T* V+) R* (Q* S* XM) Q+ (KM F* R*) P* (N* T* Q*) K* (L* 

Z* J*) J* (K* 1+ A} A* (Z Y* B*> Z (YM \* FM) W (IM V X) Q 

(ZH PR) P (qXHD) 0 (N TM P) X (BM qM 0) M (BM OM L) I (11 
J TH) E (P D EH) C (D B WM)) 

(FALSE CERE ( 0.30000002E1 0-5E0 -0.0 X* (VM F* K*))) 

(FALSE CUBE ( 0,2El 0.0 -0.33333331 M* (T* L* N*))) 

(CEBE i IS (E* (T* L* C+} L+ (D* M* K*> C* (E* U* D*))> 

(CERE 2 IS (KM (JH HM LM) m (KM X GM) GM (MM ItH YM) X (V Y 

»0)> 

(CEBE 3 IS (MM (T V JM) H* (A/ Z* I*) V (E KM W) T (S KH U))) 
(FALSE COSE ( 0 + 0 -0 + lEl -0.2E1 S <T OM R))) 

(CUBE 4 IS (qm (N FM ZM) FM (GM qM R) GM <H FM 5) R (5 PM Q})) 

(CUBE 5 IS (VM (WM X* EM) SM (J L IM) L (SM KH) J (I SM K))) 

(CUBE 6 T.S (G F H XM}> 

(CUBE 7 IS (CM (BM BM E*) G* (DM F* A/) B "A WH €))) 

(AHYS = EM (BM CH kj G*) T* (S* U« K«) E* (AM D* CM F*)) 


We print, as additional information., the CORKERS and the I's, Note that 
only a small part o£ each tube Is printed, fer example, of the long 


horizontal cube* only vertices G s F a H and XM are printed- It la not 
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difficult to M fill 11 the Cube, as CUEES2 does* but CUES docs not do that ? 

{if for "no other r£a£On a bMiuse ufi nlrfcady know how to do It, so it is 
just a mutter of bidding that pnrf of the program}* 

Also, CUES does not nsu any information about CODERS; again, in 
more complicated Ou^es ve ne.iid and a complete program should have it. 

Shortcomings of CUbBi 

I chink the efi&sc serious one is that it is unable to make 
recognition rtwng parallel cuhar^ > for eKomple cubes A C| U T and G* F* J* H* 
in "HIDEEH 11 (fig- 7) ere confused acid reported as Just one^ since they 
lie in the same class, A better (or ■worse) example is COMMON (fig- 5) > 
where ell the four cubes are parallel t and the program thinks there is just 
oneg Also, the program does not check for length of edges, 

Let ns not get angry at COES. It Is obvious that the program is 
incomplete, and it is also obvious what should he done- 

The main good idea in CUES is that b by dividing the cubes into 
classes^ vc tcansfom the problem of finding all th? cubOE 5 into the 
problem of finding tht cubks In a given class, in which ail o£ them are 
parallel. This approach also solves the discenneetivity probltai 

ListnSslon of the program CUES 

I want at this point to discuss the progran in considerable detail* 
and to see how it achieves its goals- If the reader does not want to 
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follow me, he is welcome to skip to page 24, where we talk ahcyt CIT3A aiid 
CUBE, the actual (and more complicated) programs £n use. 

The inpu t. Ip chia pace we present a list corresponding to figure 

STICKS in page 15. This list, without the numbers. Is used as 
argument E of the function CUES. [as a detail, in the figure 
appear points such as A-j B-* etc. r which are named AM, EM, etc 4 , 
in the list]. Actually it is convenient to have this list in & 
separate file because often we want ta make additions or 
modifications, 


CSFT (STICKS <A 3- 2. (& .:*) & 3, 4.(A VM C) 

C 3-3749999 4-75 (D B VM) D 3. 5, (C E) E 4-3333333 9,(F E UK) 

F 1. 9. (G E) G L. 1C. (F H KH) H 2, 11. (G 1) 

T 5. 11* (H J TM> J 7, 17, (T &H K) HO. 18, (J L) 

1 12, 16. ($M K M) H 11.5 1*43 (FM OH I*)n 11*25 13,75 (FM qM 0) 

0 13*333333 11. (N IH P) F 16, 11, <q KH 0) q 14*666666 

134.6666666 (2M PS) R 15. 14. (& PM Q) $14. 15. (T DM R) 

T 13. 17. <$ NM U) U 14. 19. (T V) V 17* 19- (U MM H) 

W 19,5 14. (IM VI) X 21. 14. (V Y HM) Y 21.2 13. <K YM) 

Z 21. 11. (YM A* FM) A* 30. 11, (Z Y* B*) E* 33. 12. (C* A*) 

0* 36. 11, (B* E* »*) P* 35- 9, (D* J5*> E* 2$. 6, (Ad D* CM F*> 

F* 26, 4, (E* &*) C* 25- 2 - (OK F* A/> H* 24. 1- (A/ 2* I*) 

I* 21, 1, (H* J*) J* 20 4 5 2. (K* 1* A) K* 19.571428 3-8571429 

(L* 2* J*) L* 17, 3. (U* X* K*) X* 14, 4, (T* L* H*) 

H* 8. 4. {VM P* M*) F* 8,66$$&$$$$ $, (H* T* Q*> Q* 9.666666666 
9. (UM P* R*) R* 17, 9. (Q* S* XM) $* 18, 7. (K* T* V*) 

T* 15, 6. ($* U* M* N*) (I* IB- 5- (T* 1* C*) V* 20.571428 

7.9571429 (S* MM W*) W* 22.285714 8.4285717 (EM X* V*) 

X* 24. 0. (EM W* Y*) Y* 27. 10. (FM X* A*) 2* 22.142857 
4,7142858 (K* AM H*) AM 23.857143 5*2857141 (Z* EM E*> BM 24.5 4. 

(AM CM DM) CM 25. 4. (EM DM £*) DM 25. 3. (BM CM A J G fi ) EM 22. 9. 

(V* FM X*) FM 21.5 10. (Z E2C Y*) GM Z0.2 11. (MM FM YM) 

ECM 2D, 12. (KM X GH) IH 19, 14. (W JM > JM 18,25 12.5 (KH IM FM) 

KM 18. 12, (JM FM T.M) LH 18-2 11- (KH MM) MM 19- 31. (T-K CM V*) 
m l.c, EG- (T V JM) 0M 12, 15, (M FM S) FM. 13, 14, (0M QM R) 

QM 12. 13, (N PM ZM) RM 11. 14. (M N) SM 10, 15, (.t L TM) TM 8.G6&66&666 
11, (SM I 0) UM 8. 0, (Q* E YM) YM 6, 3. (WM UM) 

WM 4.5 4. fC E VM) XM 16.5 IO. (P R* G) YM 20.6 11.8 (GM Z Y) ZX 14. 13. 

(QH 0) 


U 24.5 2. (H* DM G*) 
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kf 24,5 1. (H* mi G*) 

{LAMBDA (X) (CEEX X (LLENA STICKS))) (STICKS) 

STOP )» )))))) >) ) ) ) ) ) ) )> ) ») ) > » 

This is how the figure STICKS loot* like, in list format. 

At the end we tail to LLEKA P a LISP function which simply takes the 
coordinates out of the list and puts them in the property List of the 
corresponding atom* under XGQR and YGOR P and then gives this expression 
to the CONVERT program. 

The program . The COBS program is rather short. We start by defining 

CUBS! a LISP fucietiOO which c^lls CONVERT, It has one argument* 
the (list representing the) picture we want to analyse. The 
program appears id the neat pag£- 

Tba first argument of CONVERT is the dictionary of declared 
variables Let analyse it: 

GR FAV GSR GR will match with anything that GRR matches ? and 

will retain that value P 

GRR STG X CRR will match with a number if it is Strictly greater 

than (the number matched by) X + 



(CUES (LAMBDA (E) (CONVERT (QUOTE( 

GR PAV GBR GRR 5TO 7, (CCC) CUT 1 

OEIi REFT ( ( (KKX X YYT GR WWW) (-REFT- (XXX GR YYY X WWW}) )) 



X* 

PAT 

(-XEC- EQUAL1 == X) 


Y* 

PAT 

(=XEC= EQUAL1 == Y) 


Z* 

PAT 

(-XEC- EQUALl == Z) 

21 SKEL (=?RNT= -BLNX-) 

HUH 

SKEL 

(=SETQ= Xl (-IHCR- Xl)) 


TO KEPT ( ((X) {-EXEC= TAN X XI) )) 

YZW PAT (-OR- Y Z W) 

)) (QUOTE( Y X Z (XXX) (YYY) (WWW) W )) E (QUOTE( Cl( 

( =- (-PROG- (XI SAME (ANY) (YS) (CIS) (TS)Yl) (-SETQ- SAME -SAME-) 
1(“VHER- SAME(X Y XXX)((=SETQ= Xl X) (=SETQ= Yl Y){=SETQ- SAME(XXX))) 

(-GOTO- 2)) 

(-REFT- Yl 02 { 

( (« «) (-SETQ- (CRS) (Xl Yl CRS)) ) 

< (X Y 2) (pREPT- ( (YS) ((TO X)(TG V)(TG 2)) ) C3 < 

( -PEI- (C3 Xl -SLUR-)) 

( (pp (p— X ■— X* *—}) (-SETQ^ (TS) (Xl Yl IS)) ) 

( (X (Y 2 W)) (-NEXT 1 *- ( (DRD H H) X)) ) 

( ((X Y 2)0) (-SSTQ- (YS) (<X Y 2 Xl Yl))) ) 

( ((X Y 2) (XXX(X* Y* 2* YYY)WWW)) (=SETQ=(YS)(XXX(X Y Z Xl Y.1 

YYY) WWW)) ) 

( ((XXX) — ) (-SETQ- (YS) ((XXX Xl Yl) YS))) ))) 

( ==■ (=SETQ= (ANY) (Xl Yl ANY))) )) 

(-GOTO- 1) 2 21 (=SETQ“ Xl 0) 

(pPRNT- (CORNERS — CRS)) 21 (-PKNT-*(TES - TS)) 

3 Z.l 

(-COHD- (YS) (X XXX) (=GOTO= (=QUOT= 3) (-SETQ= (TS) (XXX)) 

(-PRNT- (-REFT- (X (CRS TS)) C4 ( 

( {(== == = Y Z W XXX)==) (CUBE HUM IS (Y Z W XXX)} ) 

. ( ((— -- =•=■ X (¥ 2 W)) <-=“ YZV = YZW — YZW 
(CUBE NTM IS (X ¥ 2 W)) ) 

( (X ==) (FALSE CUBE X)) ) )) )) 

(=RETN= (ANTS - ANY)) )} ) )) ))) 


The CUBS program. 



21 


(CCC) CRT I CCC will match any fragment with Length L for longer)! 

and it will remember this number; for example* 

(A CCC B CCC I )) requires that between A and & and 
between £ and D there must be two fragments of equal 
length ( >_ 1) L 

OKD REFT ( ((m K m CSJt WWW) (-REPT- (XXX GB„ YYY X WWW)) )) 

The vs-lue of (OKD 22Z) Is a. List which contains the 
sane elements of S2J„ but in Increasing order —we 
suppose ZZZ formed by numbers—- The unique rule. used 
say^- If you see X and In some place to its right 
sumo other number bigger then X P (XXX X YYY GR WW) P 
interchange and then ropcat the process^ (-REFT- (XXX 
[JP YYY X WWW) > P 

X* FAT (=XEX> EQCALJ ■■ X) X* will mutch a number R for vhioh 

(EQUAL! H X) Is true. X* is ApptOftfmutely equal to 
X, Kote that =XEC= allows us to Call LISF predicates^ 

us in this case; «■ Is replaced by the expression 
being matched* Y* and Z* are Approx, equal to Y arid 
E ^ respectively P 

El SKEL (“PENT™ ™£LHK®} its value IS A ELANK b which is illso printed- 

This is a way to print a line of blanks, in the 
console of the time sharing system¬ 
ic REFT ( ((X) (=EXEG= TAH X Xl> }) TG Applies the USP function 

TAT^ to its argument and XL P 

YEW FAT (-OR= Y Z W} YZW will match with any expression retching 

either the pattern Y or the pattern E or the pattern I?, 


The second argument declares X p Y p 2 and W as free variables h and XXX* 
YYY and WU aa free fragment variables* that is to say P in the msde CAR,, 

The third argument is E p the picture we arc going to examine- 

The last argument of CONVERT is a list of collections of rules; in this 
CAS£ there is Juat one* called Cl, 

Cl has also one rule p which Says [ « ("FRGG* ( )+--)) 

'If you an expression (£) etching = * replace the skeleton 




(■PRjOfi= Since " matchaa anything* no m^tt^r wb&t is the 

express!Ofl E, ue enter the ^PROG" - , Th^ “-PROG-ram feature for CONVERT 
is described in A.-1- XCek 95, 

tfe see that {Si SAME (ANY) (YS) (CESKTS)Yl) declares to M, Yl 
and SAKE as being ”FRQG= variables* and to- AKY b YS. b CTS and IS as being 
=PROG= fragment variables, 

(=SETQ= SAKE =SAKE=) We assign to SAME the value of =SAKE=* that is ? the 
expression whlcb we are trying to analyse,, 

The statement b r o, 1 of the =PROG= saysE when SAME Is decomposable 
Iei 1 st t 2 nJ and remainder* or (X Y XXX) + store the first expression in XI* 
thfc second in Yl and the remainder in SAME, So* XI will Contain a vertex ? 
and Yl is the list of the points connected to it- The only case when 

SAME does not match (X Y XXX) is when It is empty* in which case we gq to 2_ 

•■low we apply to Yl the rule-set CZ* and they go to 1 + to do the 
same wifh other vertices. 

| ==> (=SETQ= {CRS) (XI Yl CRS)) ] Corners are simply added tq 03- 

{ (X Y Z) (=REPT= ( (TS) {{K X)(TC Y)(T G Z» > C3 + * + ) J 

If we see a triplet;, Tie compute the slope of its sides* and we 
tom a list of (YS) mi them, and apply to such an entity the rule-set C3* 

The first rule of €3 prints CZ^ XI and a blank. 

The second rule of €3 looks to see if two of the slopes are equal; 
this being the case, we are dealing with a T* so it is added tq (TS), 


[<* (Y 2 W)) ((dRD Y Z w) X>) ] Otherwise. we order our 

slopes, interchange (Y§) tq the right ,i.nd go qn tq the flext rule- 
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[ <(I T Z) ()) f=SETQ= (YS> ((XV Z XI Yl))) I If (YS) is empty, 
wo initialise it in the way described L 

( ((X Y Z) (XXX(X* V* Z* YYY)VWW)> (™SETQ=-{ YS) (XXX(X Y Z XL YL 

YYY) WWW)) ) 

says: if there exists iti (Y5) a class with the same slopes as 
those matched in (x Y £)„ we put the present vertex* XI Yl, into 
that class. 

( ((XXX)==) <-SETO* (VS) «m XI Yl) YS)» 

Otherwise, we create a new class. That finishes C3, 

The last rule of C2 says L " (-SBTQ- (ANY) (XI Yl ANY)) 1 : otherwise 
—that Is, if Yl is not a triplet— append it to ANY* Then* go to 1. 

When we finish this preprocessing of the picture* CRS contains 
all the corners, TS all the T^s, etc. We print them* (See example of 
output, page 16). In particular* (Y5) looks :ike 

((20-2 H*(I* Aj Z*) T(U NX S) (2 1/3 - 1/3 U*(L* C* T*) ...) . . .), 

divided into classes with the three numbers —elopes— at the front. 

Now we execute statement 3 n Other loop* it starts by printing a 
blank, 1. - 

3 £1 

(^*C0KD~ (YS) (X XXX) {-GOTO™ (-QUOT* 3) (*SETQ~ (vs) (XXX)) 

(-PRNT- (“KEPT* (X (GRS TS>) C4 ( 

l ({*• »i i« y z h xxx)=~) (cubs: KUH IS (Y Z W XXX)) J 
j ({-=>»>- X (y z W)) <*— TZV ™ YZW YEW ===)) 

(CUBE NUtt IS (X Y Z W)) J 

E (x —> (false cube x) ] ) )) )) 

This conditional says: if (YS) has one element X and a remainder 
XXX, go to 3, but first store {XXX) in (YS), and print seme other skeletons, 
Whon (YS) is ( ), this (=C0ND= ...) fails, in which case we execute the 
next statement: (“RETN= (ANYS = A1TY)), finishing the computations. 




The set C4 applies to (X (CSS TS)), that is, to a list formed by 
the class X of vertices and a list consisting of the corners plus 
the T's j t he following r nles i 

[ {(== == == YEW XXX)==) (CUBE HUM IS (Y Z W XXX)) j 

If the class consists of at least 3 elements, besides its 
3 numbers (matched by “ “ that Is, if the class contains 

more than 1 vertex, we print that class as a cube, No attempt 
is made to differentiate between parallel cubes, which fall into 
the same class. 

[ ((»».»* x (Y Z K)) (*** YEW YEW —- YYU ===)} 

(CUBE H1K IS (Hi W)) ] 

If the class consists of only one vertex, X (Y Z U}, wo examine 
more closely the points Y, Z and W, to sec if they are either 

corners or T^s; If this is the case (a* It is G (F B XM) in 

STICKS, fig, 13) we accept X as a Cube,. Otherwise we reject it: 
l (X -p) (ItAl$£ CUBE K) ] 

The program uses some simple LISP functions: 

(TAN (LAMBDA (A B) (COMD 

((EQUAL {GET B (QUOTE XCGR)) (GET A (QUOTE XOOR ))) Q.1K7) 

(T (QUOTIENT (DIFFERENCE (GET B (QUOTE YCQk)) (GET A (QUOTE YCOR))) 

(DIFFERENCE (GET B (QUOTE XCOR)) (GET A (QUOTE XCOR))) 

»> )) 

(EQL'ALl (LAMBDA (A B)(LESSP (ABSYaL (DIfFEREMGE A B)) CERQ) )) 

(AfiSVAL {LAMBDA {A> (COND ((HIKU5F A) (MINUS A)) (T A) ))) , 

CSET (CERO 0.003) 


CUBA DBF. Different lacing among parallel cubes. 

The program Just discussed takes a figure and separates the 
tubes into classes, each one of them containing parallel cubes. For 
sample, in HIDDEN (fi S , 7, page 12) the cubes A Q V U T and V* J* D* 
J EJ* are parallel. He would like to differentiate among them, Fore 
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we use tLie collineartty amon^ two verticesS for 
e>:amp 1 e ? Q and T are collineal —figure at the 

right—- 3 but Q and D* are not h eo Q and D* can not 

fora a cube. 

Aleo* ve do not want to compare Q with 
all the vertices of its same class in order to 
select the possible ones: It seems that a further 
classification of vet tines of thE ssmo class is deyitablo. 

Co 11 in. Oaf it y Is nob Sufficient , For example, vertices A and B --see 
figure below— ate toll Intel p and still do net form a cube; therefore* 

we will select all the vertices collineal to A in the directIon A T 

and ^if there are some) select the appropriate one* 




B 


As the last figure shows, we have to take into account sore information 
about the lines- a in order to know that oohe a T ends before [to the left 
ofJ vertex B- As an alternative, we could soyr M A T does not give 
enough information about the remainder of this cube, so ue may as well 
forget about A T and try another line, with the expectation thnt we wilJ 
be luckier this time", 
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Numbering the. Y^S# Ifnit <3istance vertices. 


Ttfka a cube, pick any vertex and establish the three direct ions 
□f its lints w ns dons in the 
figure, Wow* SjC^-mtns for e^ich 
virtue* the lines which depart 
from it, for vertex A* all its 
lines depart io the positive 
directions \ 7 —* and I ; 




therefore„ is (4 4 4) or £0 0 0) or ) , For vurtex 

line B G is \ (4) 
line B C is —^{4) 
line 3 A is ^ (-) ; 


those 3 

directions 

were 

arbitrarily 
chosen to be 

[+), (+). C+) 


therefore a vertex B is (4 4 -) or (0 0 1) or 1. When wc finish this 
process, OUT cube now looks like this: 

This numbering scheme is independent 
of the starting vertex (0 0 0) and 
of the directions which art considered 
positive, 

Connected vertices are unit-distant, 
that is* their binary words differ in 
exactly one bit- Vertices which art 2 units lie on the diagonal 

of the faces (AI> AG ? bll ? et^-) Artd vertices lying in opposite extremes 
of the diagonals of the cube are 3 units apart ¥ for example F £1 0 0) and 
C £011)- 





Vre-processln#. 


The pre-processing done in CUBA is more cocp Heated 


than the one done In CL'EFl- 


V-erclcfiS are divided into C0flNEKS P T H s P Y's and AWY 1 s 


(^s before); 


1 , CORNERS are divided according to the slope of the sid^s, 

2 . T’s are -divided according to the slope of the top- (A E) 
and the glopfe of the tail (C D) r 

A 

D 



3 , T’s are divided into classes* eccording to slup-e* 


In each class, vertices aee divided according to the 
unit distance concept. If certain vertex happens to 
be the first o£ given cio*S 3 the number (& 0 Q> is 
assigned to it, 


Localization of the Cubes-. A second part of CUBA applies to each class 

of Y’s the following process: 

l. A vertex Is selected and the program tries to attach to it a 
cube, if possible; therefore a its unit-distance vertices are 
looked for [ if the_yertex in -question has number (xj x^ x^)* 
only sub-classes (ir 1 x- x -^) a (x 5 x 2 x 3 ) and x^ Xj) are searchedl ; 
a vertex has to pass the test for collinearity and* if several are 
found, the closest is chosen. It turned out that these 1 testE 
are still not sufficient; for exempt e a E is 

(1) unit’-distsDt from A 

(2) colineal 

(3) tho closest 

and still A - E is not (part of) s cube. In 
relation ^ith this, see also TWEE (fig- 11). 
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2r We apply to the vertices found in (1) the s&m# process (I) ? up to 
a certain -depth- 

3, The cube foraed in this way is accepted If it has 2 or more vertices; 
if it has only one, as N* (EC* L* M*> in H1DHEM p fig, 7 P page 11, we 
chock the extreme points fEC* „ L* and M* in the example] B as Explained in 
CUBS . 

A fancier program should say, after finding a Cube such ae M*j 
"I am not sure it is really a cube* but it looks like one". This comment 
can be inserted in this part of tha ptOgtuiTK 

4, ActcpEcd cubes are reported and their vert ices erased from the 
subclasEoe wher-p they were found, and the whole proc^se is applied again 
to th* POst vortex of the subclass. 

5, When a subclass (or a tlass) 


CUBE LISP. 

Is the program curr&ntly 
also breaks vertical of the typu 


is empty, the nexc one is searched- 


in use; in addition to what CUBA does, it 

\ 


in two Ye: 


and 




Use of COSHERS + 

■ 

We still do OOt mse information about the corners; the program 
reportg just the Y's of a cubs, and does not try to complete It h as CHEESE 
does- To complete a Cwb# onCc is found is not difficult, i;f avoid 
ambiguous or undetermined cases, and for that matter we could use those 
rules and skeletons which CUEES2 u S#B for this purpose, 


Use of LINES. 

No lufcrutttl-Ofl is used actually about individual lines p more 
general pro^rM should also 0lassify lines according to its slopes; this 




information would allow us to complete the cube G F H X M (STICKS, fig# H) 
with its otherwise totally disconnected part Z A* EH X*# 

Rec-tigii ■ tSon of Cubes in & Picture which also contains other objects# 

In the presence of non-cubic objects,, an effort is made by the 
program to see cubes in them; if none la found p these objects ere simply 
ignored. A good example is HIDDEN (fig# 7, page 11), where the truncated 
pyramid is ignored, but only after several "false cubes" found in it. 

The output is the following: 

(FALSE CUBE (Z* (Q+ Y* S*))) 

(FALSE CUBE (Y* (V* Z* X*))) 

(FALSE CUBE (X* (V+ 0* Y*))) 

SOLUTION TO H I D D E N 

(FALSE CUBE (S + (T* Z* S*)}} 

(FALSE CUBE (Q* (Z* P* R*))> 

(CUBE 1 IS {N* E* L* M*>) 

(FALSE CUBE {X (H Y B) )} 

(FALSE CUBE (J (I EH*))) 

(CUBE 2 IS (H* (G* F* J) E* (F* G* C*) F* (E* U* D*> D* (V E F*>) ) 

(CUBE 3 IS (P (A Q R) 0 (Q A W) Q (0 H) T (Klf V}} ) 

(CUBE 4 LS (J. {A* B* H) t (K W A*) H (Z 0 L) K <B 1 fc*)> ) 

(FALSE CUBE (V* (Y* U* W*))) 

(CUBE 5 7$ (Y (U X I*) G (P* I* B) I* (E G Y) E ( I* 0* S)) ) 


(FALSE CUBE (D (Y ft 5))) 
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I£ IflSt^ad o£ a pyramid vfe put a hexagonal prism* 
it will rOcognigO in it the r| cubcs rr A B C E F G 
and E C D F G HI 

As you CUBE is not wry successful in a 

foreign Onfvir&flmePt - A more general program should be more careful 
about accepting Candidates which look good. 

Fr^lluilnaty After die ptepro€Cssing of the figure* the number of 

DORMERS Is competed and divided by 3 (a Cube can not have more than 3 
CORNERS)+ Toe classes of T's are also Counted, Both numbers are inserted 
in a message h L3iere *i£e HI or N2 cubes". 

Soqa Ey-a^ies ,. We have already shown several figures which the program 
analyzes correctly; they are COMMOH (fig. 5) a GORDO (fig- $) n lEllDDEjfl 
(fig. 7) i STICKS (f±a* 3). Some of thern p like HEDDEK ( F g_ 12) are 
eonawhat ecmplicated* since they involve parallel cubes, disconnected 
cubes, learner cubes, extraneous objects, etc. 

l wQuld Ifke to present now a couple of examples, TRICKY (fig.. 9} 
and hUAT? (fig- lQ) f where the answer is ambiguous (nen- unique). The 
program does its best* and its answers are acceptable but, in general, 

CUBE is net designed to solve optical illusions- 





I ■ 
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l.oaU {(a cube tricky)) 

( CERO UNDECLARED) 

( CERO UNDECLARED) 

MIL 

u (cubs tricky} 

B 

F 

J 

M 

N 

0 

P 

{THERE ARE 2 OR l CUBES) 

(CORNERS - ( O« 4 E 0 O.lE? I (J H) fi (“ F)> (’ 0 * 5 E 0 0 * 4 eG E 

(F D) C (D B)) {-0.5EQ Q P 1E7 K (J L) A (1 B)» 

(TEE -) 

(YES ** (-O.5E0 0.4.ED 0.1E7 ((0 D 0) 1 (H C A)) ((0 1 1) 0 
(H L D)) ((100) F (L H J) S {S F H) M (B i I)) ((1 0 1) J 
(K I F}) ((1 I 0) F (E K (?)))) 

(LOOK (0 I 0) E C) 

(LODE (100) EM) 

(LOOK! (1 0 1) ML) 

(LOOK (1 1 0) K D) 

(LOOK (0 0 1) E A) 

(CUBE 1 IS (M (E 1) l) E (MCA)) ) 

(LOOK (0 0 1) 0 L) 

(LOOK (1 1 1) 0 H) 

(LOOK (0 1 0) 0 D) 

(FALSE CUBE (0 (H LD)) ) 

(LOOK (1 1 0} F H) 

(LOOK (0 0 0) F L) 

(LWK (1 0 1) F J) 

(LOOK (1 1 1) J I) 

(LOOK (U 0 1) J K) 

(CUBE 2 IS (J (K I P) P (L H J)) ) 

(LOOK (1 1 0) S F) 

(LOOK (0 1 0) F E) 

(LOOK (Ill) F C) 

(LOOK (0 0 0) N D) 

(LOOS (1 0 l) N H) 

(CUBE 3 IS (F (I 3 C) S (D F H>) ) 

(ANYS = L (A K 0 R K) II ((Hi F I G) D (0 M C N E)) 
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ResuLts for TRICKY (fig. 9), CUBE accents the 3 exterior cubes and re¬ 
jects Q {II L D). The program was run in a mi-traced r.odc, and additional 
inforniation Is displayed* 

I osd {{a cube rfiat)} 

•: CERO UNDECLARED) 

(CERO UNDECLARED) 

NIL 

e (tubs what) 

(TKE1E ARE AT LEAST 2 Oft 1 CUBES) 

(CUBE 1 IS {0 (f Y X) X (Q U 0) q (X R P)) ) 

(CUBE 2 IS (S (D T R} D (5 E C)) ) 

(CUBE % IS (Q (B R P) B (Cl C A)) ) 

(CUBE 4 IS {M (T 1 7) K (J Z L) Z (W Bt M)) ) 

(CUBE 5 IS (H (G U I) U (T H J)) ) 

(CUBE 6 IS {K {HDY(H0 tf) 0 (B Y X)) ) 

(FALSE CUBE (V (J RI))) 

(FALSE CUBE (C (R 1 D)» 

These are the results for WHAT?* 6 cubes are found; M Y 0 ff is 
accepted, but J V Ft T la not* This i? (fig* 10) certainly a possibility; 
otherwise* how does one explain with Cuba* the presence of lines 0 13 and 
N M ? 

The ne^t two pages show the exam-pie TONER (fig, ll), All the cubes 
but one are correctly Identified: cubes C* I And p I are [con]fused and 

they appear in the answer as only one* namely C* K* A* X* This is because 

we do not use information about lines; if this were Che esse* lino A E —sec 
figure below-- would tall us not to think of R 5 as being just one Cube, 
but two instead. 

It is not clear* on the other hand* how rany cubes we aee In figures (A) 


and (B) 
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e {'cubs t lmjjij r) 


(THESE ARE AT LEAST 3 PR 2 CUBES) 


(CUBE 1 IS (A* (K I X*) X* (Z 0 A*)) > 

(GIBS 2 IS (X» (Z 0 m) U* (H S X*)) ) 

(CUBE 3 2S (V (C Tfr B) F* (T* C 0*) T* (F* V Ns*) M» (C* E I*» 

(CUBE 4 15 (N* (Os R P*) A* (X I U*)) ) 

(CUBE 5 IB (F (If KM) 1| {0* L F>) ) 

(CUBE 6 IS (U (G* L EC) K (D* 0 10) ) 

(CUBE 7 IS (K (to C J) J (Eft V* r)J j 






t o w e r 
c 
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12 


3 0 


£3 


26 





A 

5 

22 

(I* R* W*) 

H 

8 

28 

(V 8 E*) 

C 

4 

31 

(r* v) 

n 

4 

21 

(I* W*) 

E 

3 

26 

fw j* q* r) 

F 

5 

10 

<Y U* H N) 

c 

8 

6 

(K 1 V*> 

H 

1 

14 

(Y Z 0*> 

1 

8 

21 

(T 0 A*) 

J 

5 

L 

(H* R V*> 

X 

5 

4 

(I>* ff C J) 

L 

8 

9 

(w K G) 

M 

S 

12 

(F S L) 

N 

5 

7 

(G* FLK) 

0 

8 

13 

(X* 1 Sj 

P 

1 

23 

(c* x q> 


4-, 2 

22. 

2(1* P P*> 

R 

7 

26* 

(E* If m 

s 

e 

13 

(0 M 1'*) 

t 

8 

24 

(E S* I) 

u 

9 

28 

(8 q* J*) 

V 

8 

30 

(C T* B) 

x 

1 

20 

(P A* 2) 

Y 

1 

11 

{E] F G«) 

Z 

1 

17 

(X X* H) 

A* 

5 

19 

(X W* I X*) 

C* 

1 

26 

(F* N* P) 

D* 

I 

5 

(G* K K*> 

E* 

H 

27 

(B J* R) 

F* 

] 

20 

[C J* T*> 

G* 

1 

B 

{Y N D*) 

H+ 

1 

2 

CD* J) 

I* 

4 

22 

(Q A D> 

J* 

3 

27 

(E* 0 E> 

N* 

5 

25 

(R P+ C* T*> 

P* 

5 

23 

(N* q R*> 

Q* 

9 

27 

(t) E) 

R* 

6 

23 

(P* 3* A) 

S* 

6 

22^ 

CP* T Y*3 

T* 

5 

25 

(F* V W*) 

u* 

5 

21 

(» A Y*) 

V* 

3 

3 

(G J) 

X* 

5 

18 

<JO* 0 A* 2) 

¥* 

6 

22 

(5* W*> 


7 

26 

(RE) 


Fig. 11 T 0 H R R 




(CUBE 3 IS (U-.V (H S P) T (Y K tf*)> > 

(FALSE CUBE (W* (D Y* A*))) 


(CUBE 9 IE (E (tf (ff- I*) E* <J* B R) U (B Jfr Qa) J* 

> 

(FALSE CUBE (E (W QA: T) ) ) 

(CUBE 10 IS (Mt (D Y* A) I* (A Q D) R* (P* A S*> A 


> 

(FALSE CUBE (P* (R* Q W*))) 
(FALSE CUBE (B (U N* V))) 


(E* U E)) 


(I* K* W*)> 


Solution to TONER (fig* 11). 

!7C£CicC6 such as X (D* N C J) Laving 4 connected points d two of which 
(J and N) are coLIineal, get decomposed in two y's : K (D* N G) and 
K (B* J G), 

The newt pages contain a listing of the program* The CONVERI func 
tion uhich recognises cubes Is (CUES E), and occupies less than 1 pages. 


(CUBS (LAtffiM (E) (CONVERT (QUOTE ( 

GR FAV GRR GEE. STL X (CCC) CNI 1 

ORE REFT ( ((XXX (X Y) YYY (GR Z) WWW) (=EEFT-« (XXX (GR Z)YY\' (X Y) 

Wk’W) ) ) 

( (FAl) (-FROG* O (=SETQ= Y1 $) F)) ) 

X* FAT (=3CEC= EQUAL 1 " X) 

Y* FAT (^CEC- EQUAL! == Y) 

Z* PAT (=XEC = EQUALl -- Z) 

Zl SECEL (=FRWfT= =ELTK-) 

(TO) SKEL (=EXEC = TAN XI > 

YZW PAT (=0R= Y Z W) 

NEX &KEL (=SETij“ X2 (^IXCR= X2)> 

MU SKEL (=RKFT- (Yl U V) C8 ( 

( ((X XXX) U (Y YYY)) «=WHEN = (=EXEC= FARALBLL Xi X U Y 
*T* 0 1) (*REFTV- ((XXX) U (YYY)) )) ) 

( “ O ) )) 

CO BUY (^B= ^ATO* (-XEC- COLINEAL V V ==)) 

(COL) PAT £ (A-OS* () ( £ "OR= CO ==) == COL ))) 

LOOK REFT < 

( (U V W (== (U COL) «*)) 

(=WHEK= ( (ORE (*ITEE* J CO {{=EXEC- IEXGH 
J V) J) )) Y1 ((X ■*"■) (Y — -» 

( ^fflEN* SAME (XXX (U YYY Y Z 1ERI) ZZZ) 

(Y Z (MNUIifc^SETQ* SAME (XXX(U YYY UUUjZZZ)))) ()) 


c O) > 
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COtt REFT { ((1) 0} (*"• 1) ) 

(pAl) FAT <(*OR* O ((F S) PAl) )> F Et.TV == S EU7 «- 

(WATCH)REFT ( { (T Y ==(== T = Y Z -*•)—) (Z)) 

f == O) > 

(SEE) REFT < ( (I V Y Z ==(T V = Y (=OR“ ((-AHD- (<fiC» FARALELL 

== Y XI Y) U) U) (U «)) ==) =-=-) 

{= r „’HEN= <=EXEC= PARALELL ¥ W XI Z) *T* <<U tf)) () )) 

( “ O) > 

POINTS SKEL (=TTER= .T =SAHE= ((TC J) J) ) 

)) (QUOTE (Y Z W X U V (XXX)(YYY){ZZZ)(WWW)(WV)(UUU)T )) E (qUOTE< Cl( 

( ==■ (“FROG- (XI SAME (ANY)XZ(YS) (CRS) (T$) Yl) (-SETQ*- SAME -SAME=) 
1(“WHEN- SAME(X Y XXX)((=SETQ= XI X)(=StTQ= Yl Y)(=SETQ“SAME(XXX))) 

(-GOTO* 2)) 

(MREFT= Yl C2 ( 

( (= =) (=REPT= ( (ORO (+FRAC* POIHtS)) CRS ) C$ ( 

( ((I If) XXX(X+ Y* YYY)WW) 

(=SET<?= (CRS) (XXX (X Y Xl Yl YYY)UWW)) ) 

( ((X Y) ===) (=SRT<J= (CRS) <<X Y Xl Yl) CRS))) ))) 

( (“= = ==) (=REFT- ( (YS) FOIRTS ) C3 ( 

( (== (XXX (X U) YYY (X* V) ZZZ)) 

(=CONT- (XXX YYY ZZZ YS) C5 ( 

( ((Y W) WV (X Y WWW) UUU) ("SETQ~ (TS) 

(WV (X Y Xl (U V W) WWW) UUU)) ) 

( ((Y W) UUU) (“SETQ- (TS) (<X Y Xl (U V W)) UUU))) 

))) 

( (X £Y Z W)) (=NEXT- ((ORE Y Z W) X)) ) 

( ((x Y Z) (m (X* Y# Z* ((-AHD-(0 0 0)W) U V ZZZ) VW)WWW)) 
(=SETQ=(Y£) (XXX(X Y z (*reft*(nu(w U V ZZZ }VW) 07 ) ) WWW ) ) ) 
( (£JQ£X)=) (=SETQ“ (YS) ((XXX((-QUOT=(0 0 0))X1 Y1))YS))) ))) 
( (== == — -a) (-REFT* POINTS CIO ( 

{ (XXX(X Y)YYY(X* Z)ZZZ) (=C0NT= (XXX YYY 2 2.2) Cll ( 

( (("* U)(*** V)) (=£00= SAME 

(Xl (Y U V) Xl (Z U V) (*FRAG* SAME))) ) ))} ))) 

< ** (“5CTQ* (ARY) (XL Yl AMY))) )) 

(=CtfTO= 1) 

2 (=FRNT“ (MERE ARE AT LEAST (^WHER = (CRS) (CCC) (=TNC R=( =UZVD= COO 3))) 

OR (*COND* (YS)(CCC)(CCC)) CUBES)) El 

(=SETQ= X2 0) 

3 21 

< "COJir= (Ys) (X m> (^gcto= (-quot- 3) (-setq- <ys) (xxx)) 

(=PRO<J= (HI N2 N3 ) (-SETQ- SAME X) 

h (=rkft= Same g4 ( 

( (X Y 2) (=RtfTH = EtfU) ) 

( (X Y Z(U)VW) (=GCTO*(“QODT* 4) (-SETQ- £AME(X Y Z WV)))) 
( (XXX {{X Y Z) v (X V W) UUU) WV) 

{=KEMT = (=FROC= ((N4)> 

(=SETQ= SAME (XXX ( (£-SETQ“ Nl X)(-SETQ= N2 Y) 

(“SETQ- N3 Z)) UUU) WV)) 
(=SETQ= (B4) (1? (T 11 W))) 

<=COHB= (LOOK (Nl (COM K2) N3)V U SAME) (2£(U V W)) 

{ (=SETQ= (N4) (X (U V W) H4)) 

(=COHE=(LOOK((COM Nl)(COM R2)R3) X U SAME) 
(X (U V H)> 

£=SETQ= (N4) ( (*TRAG>v (LOOK, 



((COM Xl)<Ct*{ X2)(OQM N3))X W SAME)) 1(UV W) N4») 

('■COXD* (LOOK (Hi (COM N2)(DOM H3» X W 
SAKE) {X(U V U» (-SETQ* (N4) «*C£}NC* 

(LOOK. {(OW Hi) (OOH H2)(0CH M3)) X U SAME) 

(LOOK (HI H2 (COM N3» X V SAME)) X (U V W) N4)) ))> 

(=OOND= (LOOK ((COM Hi) M2 N3) V I SAME) (X (V V W) 
) (=&ETQ=(N4) ((*CONC* 

(LOOK ({COM El)H2(COM Hi)) X W SAKE) 

(LOOK ((COM ML)(COM W2) H3) X V SAME)) X (U V W) H4)) ) 

{=OOHEi“ (LOOK (Hi Hi (COM H3)) V W SAME) 

(X (U H)) (=SETQ= (NA) ( (*COHC?r 

(LOOK (Hi (COM H2) (COM HI)) X V SAME) 

(LOOK ((COM ML) N2 (COM H3}) X IT SAKE)) X (U V W) K4)) (H4) ) )) ) 

( (X(Y 2 W)) {=COTO- (N^UOT* 4) (=?jffiT= 

(H^PT= ((*AHUL* <(-SEDQ= XI X) (=£ITQ= Yl (Y 7 W)))) 
((1C Y)Y} {(TG 2)2.) ((TO U)W) ) C12 ( 

( ((IY] (U Z) (V W» ('=KEXT= ( (SEE T H M CRS) 
(WATCH T Y TS) (SEE T U Y 2 CRS) 

(SEE IUZY CRS) (SEE U V 2 W CRS) 

(WATCH U Z TS) (SEE U V W Z CRS) 

(WATCH V W TS) (SEE T V W Y CRS) 

))) ( (== == ==) (CUBE NUM IS (XI (*FRAftt Yl)) )) 

( == (FALSE CUBE (XL Yl>)) )) ))) 

( ^COMA THE NEXT RULE SHOULD BE MODIFIED, BECAUSE. WE 
DO WANT TO HAKE SOME CHECKING ) 

( = (=GOTO=(-QUCfl> 4)(=FEKT=(CUEE MUM IS =SAME* Zl)) » ))) 

» 

(=RETH= =ELKK=) )) ) 

C?( 

( (U XXX <U YYY) ZZZ) (XXX (U Xl Yl YYY) £22) ) 

( (U V WV) (V <U Xl Yl) WV» ) )) ))) 


L'ISP FUNCTIONS USED 


(PARALELL (LAMBDA (A BCD) ((LAMBDA (R S) 
(AMO (MOT (MIMUSP (DOTT R S})> 

(T JSSSV (ABSVAL (CROSS R 5» CERO))) 

(LIST (DIFFERENCE (GET B {QUOTE XOOR)) (GET A 
(DIFFERENCE (GET B (QUOTE YOOR)) (GET A 
(LIST (DIFFERENCE (GET U {QUOTE XOOR)) (GET C 
(DIFFERENCE (GET D (QUOTE YOOR)) (GET C 


DEFINE(( 


(QUOTE XQOft))) 

(QUOTE YQOR)) )) 
(QUOTE XOOR))) 

(QUOTE YOOR)) )) ))) 


(CROSS (LAMBDA (R S) {DIFFERENCE (TIMES (CAR R) (CADR S» 

{TIMES (CAR S) (CADR R)) ))) 

(DOIT (LAMBDA (R S) (PLUS (TIMES (CAR 3) {CAR ft)) 

(TIMES (CADR R) (CADR S)) })) 

{TAN (LAMBDA (AS) (gOND 

({EQUAL (CRT B (QUOTE XCOR)) (GET A (QUOTE XOOR)) )0,1E?) 

(T (QUOTIENT {DIFFERENCE (GET B (QUOTE YCOR)) (GET A {QUOTE YOOR))) 

(DIFFERENCE (QEJF B (QUOTE XCOR)) (GET A (QUOTE XOOR))) 

)» )> 

(EQUAL! (LAMBDA (A 1) (LESSP (ABSWL (DIFFERENCE A E))CERO ) )) 



)) DEFINE (( 


(LEMOH (LAMBDA (A B) 

(EXPT(PLUS(£XpT(DIFFERENCE(GET A (QUOTE XC0F))(GRT E(QUOTE XCOR)))2) 
(EXPT(DIFFERENCE (GET A (QUOTE YCOK)) (OFT B (QUOTE yCOR)))2))0,5))> 

(COLlNEAL (LAMBDA (V W C) (EQUAL 1 (LEKQH V C) 

(PLUS (LEMGH V W) (LENGH 0 C>) ))> 

{ABSVAL (LAMBDA (A) (COND ((MINDSP A) (MINUS A)) (T A) ))) 

» 

CSET (CERO 0,003) COMPILE ((PARALELL CROSS DOTT TAM EQUAL1 AE57AL)) 
COMPILE ((COLINEAL LENOH )) 

EXCISE (T) 

STOP)))))))) ) ) ) )) ) )) ))>)>>)>) )))) ))) 
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Ad d end uq 


POLYBRICK works on a sccn£ fir pittutre, and find® para 1 lolepipeds in it; 
thus B (CUES (QUOTE GORDO)) (tf. p> &1 Finds three tubes in figure 1 GORDO 1 P 
We would like to be able to specify in some suitable notation, a modeL 
of the classes of objects we are interested in (models will be 'cube' p 
'triangular pyramid 1 , 'chair 1 ), and have a program look for all instances 
of that model in a given scene or figure, Two arguments would have to be 
supplied now to our program] the model of the object we are Interested In, 
and the that we want to analyse. Programs to do this are described ins 

4« Gusman , A P Soenft Analysis bslnjt t h\ - Concent of Model - Report AFCBL"67-0133; 
Computer Corporation o£ America d Cambridge;, HuJh January 1967. 

5 f Gusman, A P A Primitive Rt-cptnizer of Figures in a Scene , Memorandum 
HAC-H-34J (AI Memo 119); Project MAC, M. I. T . January 1967. 

An important Metric Cion here is that partially occluded bodies get 
inc orrect Ly ident t £led, 

A Master h 6 Thesis discusses maLty ways Co identify objects of known formal 

6, Gu smafl , A r Some As pec ts cf Pattern Recognition by Computer , M. S . The a i a , 
Electrical Engineering Department, Massachuaetta Institute of Technology, 
February 1967 _ Also available as a Project MAC Technical Report MAC-TR-37. 

11 ujll advantage bus that-we could find the bod i e s that form a acene, without 
knowing, their e^aet description (that is, without having a mode 1 of them). 

SEE is a program that worka on a scene presumably composed of three-dimensional 
rectilinear object* [that ia , formed by plane faces!, and analyses the scene 
into a composition of 3'dim objects. Partially occluded objects are properly 
handled. This program is discussed in: 

7r GuzmAn* A* DecpiiiEoslLlon of Visual Scene into Bodies . Memorandum 
KAC-M~357 (A l Memo 139); Project MAC, M.l. T. September, 1967. 

3, Gusman, A. Decomposition cf a Visual Scene .into Three-Dimensional Bedies P 
AFtPS Proceedings of the 196G Fall Joint Computer Conference 

Thompson Book Co r Washington, U.C. 

Handling of storoO Infomutlofi (two- views, I^ft and right, of the same scene), 
improvements to deal with noisy (imperfect) input, figure-background discrimi¬ 
nation, etc .* will be found in a doctoral thesis; 

9. Guzman* A, Computer Recognition Of Thre e-Dipic ria i Ofla 1 Objects ifl a Visual Scene . 

Fh, D, Th-esis * Electrical Eng. Dept, P M. In T, (end of 96& or beginning 1969) 
tflll probably appear, too, as a Project MAC Technical Report 





